home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xvisualinfo.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
2KB
|
36 lines
(herald xvisualinfo (env tsys (xlib interface)))
(DEFINE (MAKE-XVISUALINFO) (CONS 'XVISUALINFOP (MAKE-BYTEV 40)))
(DEFINE (XVISUALINFO-VISUAL X)
((LAMBDA (X Y) (CONS 'VISUALP (MREF-POINTER X Y)))
(CHK-XVISUALINFOP X)
0))
(DEFINE (XVISUALINFO-VISUAL! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-VISUALP Z)))
(CHK-XVISUALINFOP X)
0
Y))
(DEFINE (XVISUALINFO-VISUALID X) (MREF-INTEGER (CHK-XVISUALINFOP X) 4))
(DEFINE (XVISUALINFO-VISUALID! X Y)
(SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 4 Y))
(DEFINE (XVISUALINFO-SCREEN X) (MREF-INTEGER (CHK-XVISUALINFOP X) 8))
(DEFINE (XVISUALINFO-SCREEN! X Y) (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 8 Y))
(DEFINE (XVISUALINFO-DEPTH X) (MREF-INTEGER (CHK-XVISUALINFOP X) 12))
(DEFINE (XVISUALINFO-DEPTH! X Y) (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 12 Y))
(DEFINE (XVISUALINFO-CLASS X) (MREF-INTEGER (CHK-XVISUALINFOP X) 16))
(DEFINE (XVISUALINFO-CLASS! X Y) (SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 16 Y))
(DEFINE (XVISUALINFO-RED_MASK X) (MREF-INTEGER (CHK-XVISUALINFOP X) 20))
(DEFINE (XVISUALINFO-RED_MASK! X Y)
(SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 20 Y))
(DEFINE (XVISUALINFO-GREEN_MASK X) (MREF-INTEGER (CHK-XVISUALINFOP X) 24))
(DEFINE (XVISUALINFO-GREEN_MASK! X Y)
(SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 24 Y))
(DEFINE (XVISUALINFO-BLUE_MASK X) (MREF-INTEGER (CHK-XVISUALINFOP X) 28))
(DEFINE (XVISUALINFO-BLUE_MASK! X Y)
(SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 28 Y))
(DEFINE (XVISUALINFO-COLORMAP_SIZE X) (MREF-INTEGER (CHK-XVISUALINFOP X) 32))
(DEFINE (XVISUALINFO-COLORMAP_SIZE! X Y)
(SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 32 Y))
(DEFINE (XVISUALINFO-BITS_PER_RGB X) (MREF-INTEGER (CHK-XVISUALINFOP X) 36))
(DEFINE (XVISUALINFO-BITS_PER_RGB! X Y)
(SET-MREF-INTEGER! (CHK-XVISUALINFOP X) 36 Y))